SELECT mQ.Name1 AS FieldName
     , mo.Name AS QryName
     , mQ.Expression  
 FROM MSysObjects AS mo
     INNER JOIN MSysQueries AS mQ
         ON mo.Id = mQ.ObjectId  
 WHERE ( (mQ.Name1 Is Not Null)
     AND (left(mo.Name,1) Not IN ("~","{"))
     AND (mQ.Expression Is Not Null)
     AND (mQ.Attribute=6) )  
 ORDER BY mQ.Name1
     , mo.Name;